((lambda (x) (if (pair? x) (car x) x)) (cons (cons 3 2) (cons 4 ())))